home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / sound / samplecruncher / transfer_new.rexx < prev   
OS/2 REXX Batch file  |  1999-11-29  |  898b  |  39 lines
  1. /*
  2.  * $VER: transfer_new.rexx 1.01 (4.6.99)
  3.  *
  4.  * ARexx script for OctaMED Sound Studio
  5.  * Written by A Niven-Jenkins © 1999 Cremlin Software
  6.  *
  7.  * Sample distortion using samplescruncher rather than OctaMED SS directly
  8.  * Replaces transfer.rexx with a temporary solution :-)
  9.  *
  10.  */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. /* needed for DELETE() function */
  15. CALL ADDLIB('rexxsupport.library', 0, -30, 0)
  16.  
  17. ADDRESS OCTAMED_REXX
  18.  
  19. /* start timing including the saving and loading of samples to ram: */
  20. CALL TIME('R')
  21.  
  22. IN_GETNAME
  23. instname=RESULT
  24.  
  25. IN_SAVE 't:temp.raw' RAW
  26.  
  27. ADDRESS COMMAND 'Work:Devel/samplescruncher/samplescruncher t:temp.raw t:' || instname || ' OFFSET=256'
  28.  
  29. IN_LOAD 't:' || instname NOSLIST
  30.  
  31. CALL DELETE('t:temp.raw')
  32. CALL DELETE('t:' || instname)
  33.  
  34. SAY 'Time elapsed:' TIME('E')
  35.  
  36. /* refresh OctaMED SS display */
  37. SA_REFRESH
  38. SA_RANGE 0 255 /* why is this in? selecting the 1st 256 bytes seems pointless */
  39.